home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / Guidelines4_ANS < prev    next >
Text File  |  1997-04-05  |  985b  |  16 lines
  1. /**/;options results;tr=transmit;gu=getuser;se=sendstring
  2. gu 1212088;sub=result;gu 1412312;a=import(offset(null(),result+sub*696),696)
  3. b=left(a,60);parse var b base"00"x;hand=c2d(substr(a,375,1))
  4. priv=c2d(substr(a,383,1));anon=c2d(substr(a,377,1))
  5. iday=c2d(substr(a,373,2),2);ansi=c2d(substr(a,382,1))
  6. sigs=c2d(substr(a,390,1));o=substr(a,561,60);parse var o orig"00"x;tr "f1"
  7. tr center("cbGuidelines for cd"base,84)"n1cfÚce"copies("Ä",76)"c4¿"
  8. se "ce³c7  Handles Allowed: "left(word("caYes c9No",(hand=5)+1),8)
  9. se "c7    ANSI/MCI Allowed: "left(word("c9No caYes",ansi+1),8)
  10. tr "c7Signatures Allowed: "left(word("c9No caYes",sigs+1),8)"c4³"
  11. se "ce³c7 Private Messages: "left(word("c9No caYes cbForce",priv+1),8)
  12. se "c7  Anonymous Messages: "left(word("c9No caYes cbForce",anon+1),8)
  13. tr "c7   Inactivity Days: cd"left(iday,5)"c4³"
  14. if orig>"" then tr "ce³"copies(" ",76)"c4³n1ce³c7 "center("Origin: cd"orig,77)" c4³"
  15. tr "ceÀc4"copies("Ä",76)"Ùq1"
  16.